﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
%>
	<card title="商品订单管理"><p align="left">
<%
	dim rs,sql,page,act,nan,id


                act = Request("act")
                if act="" then act=1
    		Page = Request("page")      '当前页数
    		If Page = "" Then Page = 1
   		If Not IsNumeric(Page) Then Page = 1
    		Page = CLng(Page)
    		If Page < 1 Then Page = 1
    		id = Request("id")    
    		If id = "" Then id = 1
   		If Not IsNumeric(id) Then id = 1
    		id = CLng(id)
    		If id < 1 Then id = 1
	Set Rs = Server.CreateObject("Adodb.Recordset")
        Sql = "SELECT top 1 a.id,a.nid,a.name,a.aurl,a.phoneid,a.daytime,a.non,a.solid,a.money,a.todd,a.time,b.name,b.id2 from qingtian_shopd a, qingtian_shop b where a.id="&id&" and a.soid=b.id order by a.id desc"
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then
			%>订单号:<%=rs("id")%><br/>商品名称:<%=rs("b.name")%><br/>商品货号:<%=rs("id2")%><br/>收货人id号:<%=rs("nid")%><br/>收货人名称:<%=rs("a.name")%><br/>收货人地址:<%=rs("aurl")%><br/>收货人电话号码:<a href='#'><%=rs("phoneid")%></a><br/>送货日期:<%=rs("daytime")%><br/>订单附言:<%=rs("non")%><br/>需要支付的金额:<%=rs("solid")%>*<%=rs("money")%>=<%=rs("solid")*rs("money")%>元<br/>审核状态:<%=rs("todd")%><br/>下单日期:<%=rs("time")%>
<br/><a href="shopdn.asp?page=<%=page%>&amp;act=<%=act%>&amp;id=<%=rs("id")%>&amp;sid=<%=sid%>">更改状态</a><br/><%
                else
Response.Write("暂无订单！")

		end if
		Rs.close			
	set rs=nothing
Response.Write("<a href='shopd.asp?Page=" & Page & "&amp;act=" & act & "&amp;sid=" & sid & "'>返回上级</a><br/>")
   		Response.Write("<a href='index.asp?sid=" & sid & "'>管理首页</a><br/>")
end Function
%>
